home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-01_1992_-_de_Side_B.d64 / pro budget c64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  240 lines
  1. 150 poke53280,14:poke53281,6
  2. 160 poke53272,23
  3. 180 print"[147][208]ro [194]udget 64 ([214]1.1)
  4. 190 [153]"chr$erman version"
  5. 200 [153]"lenopyright (NULL).asc.left$. 1990"
  6. 210 [153]"(atn)=atnnleitung"
  7. 220 [153]"(asc)=ascortfahren"
  8. 230 [161]q$:[139]q$[178]""[167]230
  9. 240 [139]q$[178]"a"[167][137]600
  10. 250 [139]q$[178]"f"[167][137]1000
  11. 260 [137]230
  12. 600 [153][199](147)
  13. 610 [153]"atn(NULL)(NULL)valright$(NULL)(NULL)(NULL)chr$:"
  14. 611 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab("
  15. 612 [153]"(NULL)ro peekudget 64 kann gleichzeitig bis zu"
  16. 613 [153]"40 (NULL)osten/peeketraege bearbeiten (valinnahmen";
  17. 614 [153]"und atnusgaben)."
  18. 615 [153]"str$ie (NULL)osten koennen auf zwei atnrten ange-"
  19. 616 [153]"sehen werden:"
  20. 617 [153]"1:valinnahmen und atnusgaben in (NULL)ollumnen"
  21. 618 [153]"2:valinnahmen und atnusgaben als str$iagramm"
  22. 619 [153]"peeketraege aendern:"
  23. 620 [153]"1:(NULL)aehlen (NULL)ie valin- oder atnusgaben"
  24. 650 [153]"2:(NULL)chreiben (NULL)ie '(NULL)osten, peeketrag'
  25. 660 print"3:[194]eachten [211]ie, dass die [208]osten nur 6"
  26. 670 print"  [194]uchstaben lang sein sollen und die"
  27. 680 print"  [194]etraege den [215]ert 9,999,999 nicht"
  28. 690 print"  ueberschreiten duerfen."
  29. 695 print"              -  [211][208][193][195][197]  -"
  30. 700 geta$:ifa$<>" "then700
  31. 1000 ik=a(1,1)+a(1,2)+a(1,3)+a(1,4)+a(1,5)+a(1,6)+a(1,7)+a(1,8)+a(1,9)+a(1,10)
  32. 1010 il=a(2,1)+a(2,2)+a(2,3)+a(2,4)+a(2,5)+a(2,6)+a(2,7)+a(2,8)+a(2,9)+a(2,10)
  33. 1020 in=ik+il
  34. 1030 im=b(1,1)+b(1,2)+b(1,3)+b(1,4)+b(1,5)+b(1,6)+b(1,7)+b(1,8)+b(1,9)+b(1,10)
  35. 1040 io=b(2,1)+b(2,2)+b(2,3)+b(2,4)+b(2,5)+b(2,6)+b(2,7)+b(2,8)+b(2,9)+b(2,10)
  36. 1050 ex=im+io
  37. 1080 poke53272,23
  38. 1090 print"[147][208]ro [194]udget 64   [208]osten [206]r ([205]ax.20):";no
  39. 1100 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  40. 1110 print"[154]1:[197]innahm. eingeben  2:[193]usgab. eingeben"
  41. 1120 print"3:[194]etraege ansehen   4:[194]ilanz ansehen"
  42. 1130 print"5:[196]iagramm [197]innahmen 6:[196]iagramm [193]usgaben";
  43. 1140 print"7:[194]etraege laden     8:[194]etr. speichern"
  44. 1150 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  45. 1160 getg$:ifg$=""then1160
  46. 1170 ifg$="1"then1530
  47. 1180 ifg$="2"then1700
  48. 1190 ifg$="3"then1260
  49. 1200 ifg$="4"then2560
  50. 1210 ifg$="5"then2230
  51. 1220 ifg$="6"then2230
  52. 1230 ifg$="7"then3080
  53. 1240 ifg$="8"then3030
  54. 1250 goto1160
  55. 1260 printchr$(147):poke53272,23
  56. 1270 print"[197]innahmen:          [193]usgaben:"
  57. 1280 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  58. 1290 print"[145][154]01:";a$(1,1),a(1,1),"[154]01:";b$(1,1),b(1,1)
  59. 1300 print"[154]02:";a$(1,2),a(1,2),"[154]02:";b$(1,2),b(1,2)
  60. 1310 print"[154]03:";a$(1,3),a(1,3),"[154]03:";b$(1,3),b(1,3)
  61. 1320 print"[154]04:";a$(1,4),a(1,4),"[154]04:";b$(1,4),b(1,4)
  62. 1330 print"[154]05:";a$(1,5),a(1,5),"[154]05:";b$(1,5),b(1,5)
  63. 1340 print"[154]06:";a$(1,6),a(1,6),"[154]06:";b$(1,6),b(1,6)
  64. 1350 print"[154]07:";a$(1,7),a(1,7),"[154]07:";b$(1,7),b(1,7)
  65. 1360 print"[154]08:";a$(1,8),a(1,8),"[154]08:";b$(1,8),b(1,8)
  66. 1370 print"[154]09:";a$(1,9),a(1,9),"[154]09:";b$(1,9),b(1,9)
  67. 1380 print"[154]10:";a$(1,10),a(1,10),"[154]10:";b$(1,10),b(1,10)
  68. 1390 print"[154]11:";a$(2,1),a(2,1),"[154]11:";b$(2,1),b(2,1)
  69. 1400 print"[154]12:";a$(2,2),a(2,2),"[154]12:";b$(2,2),b(2,2)
  70. 1410 print"[154]13:";a$(2,3),a(2,3),"[154]13:";b$(2,3),b(2,3)
  71. 1420 print"[154]14:";a$(2,4),a(2,4),"[154]14:";b$(2,4),b(2,4)
  72. 1430 print"[154]15:";a$(2,5),a(2,5),"[154]15:";b$(2,5),b(2,5)
  73. 1440 print"[154]16:";a$(2,6),a(2,6),"[154]16:";b$(2,6),b(2,6)
  74. 1450 print"[154]17:";a$(2,7),a(2,7),"[154]17:";b$(2,7),b(2,7)
  75. 1460 print"[154]18:";a$(2,8),a(2,8),"[154]18:";b$(2,8),b(2,8)
  76. 1470 print"[154]19:";a$(2,9),a(2,9),"[154]19:";b$(2,9),b(2,9)
  77. 1480 print"[154]20:";a$(2,10),a(2,10),"[154]20:";b$(2,10),b(2,10)
  78. 1490 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  79. 1500 print"[145][212]ot.[197]in.:",in:print"[145][212]ot.[193]us.:",ex;"[157][157][145][145]"
  80. 1510 getco$:ifco$=""then1510
  81. 1520 goto1000
  82. 1530 gosub1650
  83. 1540 print"[145][197]innahmen eingeben:   "
  84. 1550 j=0:s=1:no=0
  85. 1560 j=j+1:ifj=11ands=1then1620
  86. 1570 ifj=11ands=2then1630
  87. 1580 no=no+1:gosub1640:input"[197]innahme [208]osten, [194]etrag";a$(s,j),a(s,j)
  88. 1590 iflen(a$(s,j))>6ora(s,j)>9999999then1610
  89. 1600 print"[145][145][145]":goto1560
  90. 1610 print"[145][145]":no=no-1:goto1580
  91. 1620 s=2:j=1:goto1580
  92. 1630 goto1000
  93. 1640 print"   [157][157][157]";no"":return
  94. 1650 print"[145]-[203]orrekt ([202]/[206])-"
  95. 1660 getco$:ifco$=""then1660
  96. 1670 ifco$="j"thenreturn
  97. 1680 ifco$="n"then1060
  98. 1690 goto1660
  99. 1700 gosub1650
  100. 1710 print"[145][193]usgaben eingeben:    "
  101. 1720 d=0:r=1:no=0
  102. 1730 d=d+1:ifd=11andr=1then1790
  103. 1740 ifd=11andr=2then1800
  104. 1750 no=no+1:gosub1810:input"[193]usgabe [208]osten, [194]etrag";b$(r,d),b(r,d)
  105. 1760 iflen(b$(r,d))>6orb(r,d)>9999999then1780
  106. 1770 print"[145][145][145]":goto1730
  107. 1780 print"[145][145]":no=no-1:goto1750
  108. 1790 r=2:d=1:goto1750
  109. 1800 goto1000
  110. 1810 print"   [157][157][157]";no"":return
  111. 1820 printchr$(147):poke53272,20
  112. 1830 print"  ^
  113. 1840 [153]"20<
  114. 1850 print"  [179]
  115. 1860 [153]"  <
  116. 1870 print"  [179]
  117. 1880 [153]"  <
  118. 1890 print"15[179]
  119. 1900 [153]"  <
  120. 1910 print"  [179]
  121. 1920 [153]"  <
  122. 1930 print"  [179]
  123. 1940 [153]"10<
  124. 1950 print"  [179]
  125. 1960 [153]"  <
  126. 1970 print"  [179]
  127. 1980 [153]"  <
  128. 1990 print"05[179]
  129. 2000 [153]"  <
  130. 2010 print"  [179]
  131. 2020 [153]"  <
  132. 2030 print"  [179]                     [176][192][192][192][192][192][192][174]
  133. 2040 [153]"00(NULL)tantantantan=tantantantan=tantantantan=tantantantan=tan<postenpeek
  134. 2050 print"  [194][154]1234[194][154]1234[194][154]1234[194][154]1234[194] [173][192][192][192][192][192][192][189]
  135. 2060 [153]"  /tantantantan>tantantantan>tantantantan>tantantantanexp
  136. 2070 print"  00   05   10   15   20[145][145][145]"
  137. 2080 ifg$="5"then2340
  138. 2090 ifg$="6"then2390
  139. 2100 print""
  140. 2110 v=1:b=0:y=0
  141. 2120 q=0:b=b+1:ifb>10then2210
  142. 2130 q=q+kj:ifq<a(v,b)orq=a(v,b)then2150
  143. 2140 goto2170
  144. 2150 printtab(2+(b+y)):print"[154][180][146][145][145][157]"
  145. 2160 goto2130
  146. 2170 ifb+y=20then2190
  147. 2180 print"":goto2120
  148. 2190 getcs$:ifcs$=""then2190
  149. 2200 goto1000
  150. 2210 v=2:b=0:y=10
  151. 2220 goto2120
  152. 2230 print"[194]etraege in:"
  153. 2240 print"(1) 100:e"
  154. 2250 print"(2) 1000:e"
  155. 2260 print"(3) 10000:e"
  156. 2270 print"(4) 100000:e"
  157. 2280 getam$:ifam$=""then2280
  158. 2290 ifam$="1"thenkj=100:goto1820
  159. 2300 ifam$="2"thenkj=1000:goto1820
  160. 2310 ifam$="3"thenkj=10000:goto1820
  161. 2320 ifam$="4"thenkj=100000:goto1820
  162. 2330 goto2280
  163. 2340 print"":printtab(25)"total einnahme:"
  164. 2350 printtab(24);in
  165. 2360 printtab(25);"betraege in:"
  166. 2370 printtab(24);kj;":e"
  167. 2380 goto2100
  168. 2390 print"":printtab(25)"total ausgaben:"
  169. 2400 printtab(24)"[145]";ex
  170. 2410 printtab(25);"betraege in:"
  171. 2420 printtab(24);kj;":e"
  172. 2430 print""
  173. 2440 d=1:e=0:y=0
  174. 2450 f=0:e=e+1:ife>10then2540
  175. 2460 f=f+kj:iff<b(d,e)orf=b(d,e)then2480
  176. 2470 goto2500
  177. 2480 printtab(2+(e+y)):print"[154][180][146][145][145][157]"
  178. 2490 goto2460
  179. 2500 ife+y=20then2520
  180. 2510 print"":goto2450
  181. 2520 getcs$:ifcs$=""then2520
  182. 2530 goto1000
  183. 2540 d=2:e=0:y=10
  184. 2550 goto2450
  185. 2560 ba=in-ex
  186. 2570 print"[194]ilanz:"
  187. 2580 print"[212]otal [197]innahme:";in
  188. 2590 print"[212]otal [193]usgabe :";ex
  189. 2600 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  190. 2610 print"[194]ilanz        :";ba
  191. 2620 getws$:ifws$=""then2620
  192. 2630 goto1000
  193. 2640 z$=chr$(13)
  194. 2650 open 3,8,3,"@:"+fi$+",seq,w"
  195. 2660 print#3,a$(1,1);z$;a$(1,2);z$;a$(1,3);z$;a$(1,4);z$;a$(1,5);z$;a$(1,6);z$;
  196. 2670 print#3,a$(1,7);z$;a$(1,8);z$;a$(1,9);z$;a$(1,10);z$;a$(2,1);z$;
  197. 2680 print#3,a$(2,2);z$;a$(2,3);z$;a$(2,4);z$;a$(2,5);z$;a$(2,6);z$;
  198. 2690 print#3,a$(2,7);z$;a$(2,8);z$;a$(2,9);z$;a$(2,10)
  199. 2700 print#3,a(1,1);z$;a(1,2);z$;a(1,3);z$;a(1,4);z$;a(1,5);z$;a(1,6);z$;
  200. 2710 print#3,a(1,7);z$;a(1,8);z$;a(1,9);z$;a(1,10);z$;a(2,1);z$;a(2,2);z$;
  201. 2720 print#3,a(2,3);z$;a(2,4);z$;a(2,5);z$;a(2,6);z$;a(2,7);z$;a(2,8);z$;
  202. 2730 print#3,a(2,9);z$;a(2,10)
  203. 2740 print#3,b$(1,1);z$;b$(1,2);z$;b$(1,3);z$;b$(1,4);z$;b$(1,5);z$;b$(1,6);z$;
  204. 2750 print#3,b$(1,7);z$;b$(1,8);z$;b$(1,9);z$;b$(1,10);z$;b$(2,1);z$;
  205. 2760 print#3,b$(2,2);z$;b$(2,3);z$;b$(2,4);z$;b$(2,5);z$;b$(2,6);z$;
  206. 2770 print#3,b$(2,7);z$;b$(2,8);z$;b$(2,9);z$;b$(2,10)
  207. 2780 print#3,b(1,1);z$;b(1,2);z$;b(1,3);z$;b(1,4);z$;b(1,5);z$;b(1,6);z$;
  208. 2790 print#3,b(1,7);z$;b(1,8);z$;b(1,9);z$;b(1,10);z$;b(2,1);z$;b(2,2);z$;
  209. 2800 print#3,b(2,3);z$;b(2,4);z$;b(2,5);z$;b(2,6);z$;b(2,7);z$;b(2,8);z$;
  210. 2810 print#3,b(2,9);z$;b(2,10)
  211. 2820 close 3,8
  212. 2830 goto1000
  213. 2840 open 3,8,3,"@:"+fi$+",seq,r"
  214. 2850 input#3,a$(1,1),a$(1,2),a$(1,3),a$(1,4),a$(1,5),a$(1,6)
  215. 2860 input#3,a$(1,7),a$(1,8),a$(1,9),a$(1,10),a$(2,1),a$(2,2)
  216. 2870 input#3,a$(2,3),a$(2,4),a$(2,5),a$(2,6),a$(2,7),a$(2,8)
  217. 2880 input#3,a$(2,9),a$(2,10)
  218. 2890 input#3,a(1,1),a(1,2),a(1,3),a(1,4),a(1,5),a(1,6)
  219. 2900 input#3,a(1,7),a(1,8),a(1,9),a(1,10),a(2,1),a(2,2)
  220. 2910 input#3,a(2,3),a(2,4),a(2,5),a(2,6),a(2,7),a(2,8)
  221. 2920 input#3,a(2,9),a(2,10)
  222. 2930 input#3,b$(1,1),b$(1,2),b$(1,3),b$(1,4),b$(1,5),b$(1,6)
  223. 2940 input#3,b$(1,7),b$(1,8),b$(1,9),b$(1,10),b$(2,1),b$(2,2)
  224. 2950 input#3,b$(2,3),b$(2,4),b$(2,5),b$(2,6),b$(2,7),b$(2,8)
  225. 2960 input#3,b$(2,9),b$(2,10)
  226. 2970 input#3,b(1,1),b(1,2),b(1,3),b(1,4),b(1,5),b(1,6)
  227. 2980 input#3,b(1,7),b(1,8),b(1,9),b(1,10),b(2,1),b(2,2)
  228. 2990 input#3,b(2,3),b(2,4),b(2,5),b(2,6),b(2,7),b(2,8)
  229. 3000 input#3,b(2,9),b(2,10)
  230. 3010 close3,8
  231. 3020 goto1000
  232. 3030 print"    - [193]uf [196]iskette speichern ([202]/[206]) -"
  233. 3040 getob$:ifob$=""then3040
  234. 3050 ifob$="n"then1080
  235. 3060 ifob$="j"then3080
  236. 3070 goto3040
  237. 3080 input"[198]ile [206]ame:";fi$
  238. 3090 ifg$="7"then2840
  239. 3100 ifg$="8"then2640
  240.